home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
CC_C
/
0294.ZIP
/
DOSDATE.C
< prev
next >
Wrap
Text File
|
1985-05-18
|
384b
|
21 lines
#include <dos.h>
dosdate(date)
char date[];
{
char mon[3],
day[3],
yy[5];
union REGS DREG;
DREG.h.ah=0x2a;
intdos(&DREG.h,&DREG.h);
stcu_d(mon,DREG.h.dh,3);
stcu_d(day,DREG.h.dl,3);
stcu_d(yy,DREG.x.cx,5);
strcpy(date,mon);
strcat(date,"-");
strcat(date,day);
strcat(date,"-");
strcat(date,yy);
}